﻿'ConcreteCommand Class.
Public Class UnidadOrdenMover
    Implements IUnidadOrden

    Private _unidad As Unidad
    Private _targetLocationX As Integer
    Private _targetLocationY As Integer

    Public Sub New(unidad As Unidad, targetLocationX As Integer, targetLocationY As Integer)
        _unidad = unidad
        _targetLocationX = targetLocationX
        _targetLocationY = targetLocationY
    End Sub

    Public Sub Execute() Implements IUnidadOrden.Execute
        _unidad.MoverA(_targetLocationX, _targetLocationY)
    End Sub
End Class